home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / apps / mirage_word_processor[image_concepts_1984].nbz / pcf.create (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.8 KB  |  68 lines
  1. 1000 PRINT CHR$(14);CHR$(8)
  2. 1010 T$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  3. 1020 M$="[221]                                      [221]"
  4. 1030 B$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  5. 1040 E$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  6. 1041 Q$=CHR$(34)
  7. 1050 PRINT "[147]";
  8. 1060 PRINT T$M$M$M$M$E$
  9. 1070 PRINT "[205][201][210][193][199][197][160][195][207][206][195][197][208][212][211],[160][201][206][195]."
  10. 1080 PRINT "[208][210][201][206][212][197][210][160][195][207][205][205][193][206][196][160][198][201][204][197][160][199][197][206][197][210][193][212][207][210]"
  11. 1090 FOR I=4096 TO 4096+256
  12. 1100 POKE I,0
  13. 1110 NEXT I
  14. 1120 PRINT ""B$M$E$
  15. 1130 PRINT "[208][210][197][211][211][160][210][197][212][213][210][206][160][212][207][160][195][207][206][212][201][206][213][197]:  ";
  16. 1140 GETA$:IFA$<>CHR$(13) THEN 1140
  17. 1150 PRINT "[147]"T$M$M$M$M$M$B$M$E$
  18. 1160 PRINT "[208][210][201][206][212][197][210][160][195][207][205][205][193][206][196][160][198][201][204][197]"
  19. 1170 PRINT "*[197][206][212][197][210][160][198][201][204][197][160][206][193][205][197]"
  20. 1180 PRINT "[145]*10 [195][200][193][210][193][195][212][197][210][211][160][205][193][216][201][205][213][205]"
  21. 1190 PRINT "*<[210][197][212][213][210][206]> =[160][198][201][206][201][211][200][197][196]"
  22. 1200 PRINT "[145]*<[195][207][205]-[209]> = [209][213][201][212]"
  23. 1210 PRINT "[197][206][212][197][210][160][198][201][204][197][160][206][193][205][197] ";
  24. 1220 N$=""
  25. 1230 GETA$:IFA$=""THEN1230
  26. 1240 IF A$=CHR$(13) THEN 1310
  27. 1270 IF A$=CHR$(20) AND LEN(N$)=0 THEN 1230
  28. 1280 IF A$=CHR$(20) THEN PRINT "[157] [157]";:N$=LEFT$(N$,LEN(N$)-1):GOTO 1230
  29. 1290 PRINT A$;
  30. 1300 N$=N$+A$:GOTO 1230
  31. 1310 IF LEN(N$)=0 THEN 1000
  32. 1320 N=1:L=4096:D=1
  33. 1330 BL$="[145]                                      "
  34. 1340 PRINT "[147]"T$M$M$M$M$M$B$M$E$
  35. 1350 PRINT "[208][210][201][206][212][197][210][160][195][207][205][205][193][206][196][160][198][201][204][197]"
  36. 1360 PRINT "*[197][206][212][197][210][160][212][200][197][160][196][193][212][193][160][198][207][210][160][197][193][195][200][160][195][207][205][205][193][206][196]"
  37. 1370 PRINT "[145]*[198][207][204][204][207][215][160][197][193][195][200][160][197][206][212][210][217][160][215][201][212][200][160][193][160]<[210][197][212][213][210][206]>"
  38. 1380 PRINT "*<[195][207][205]-[209]>[160]=[160][209][213][201][212]"
  39. 1390 PRINT "[145]*[197][206][212][197][210][160]256 [198][207][210][160][212][215][207][160][218][197][210][207][211] ([197][208][211][207][206])"
  40. 1391 PRINT "[208][210][201][206][212][197][210][160][195][207][205][205][193][206][196][160]#";N
  41. 1400 PRINT "[193][204][208][200][193][160][201].[196]. ("Q$"[197][206][196]"Q$" [212][207][160][211][212][207][208])";
  42. 1410 A$="":INPUTA$
  43. 1420 IF A$="[197][206][196]" OR A$="END" THEN 1560
  44. 1430 IF LEN(A$)<>1 THEN 1340
  45. 1440 A=ASC(A$)-64:IF A<1 OR A>26 THEN 1420
  46. 1450 POKE L,A:L=L+1
  47. 1460 PRINT
  48. 1470 PRINT "[196][197][195][201][205][193][204][160][195][207][196][197][211][160]("Q$"0"Q$" [212][207][160][211][212][207][208]): "
  49. 1480 PRINT
  50. 1490 PRINT "[196][197][195][201][205][193][204][160]#"D;
  51. 1500 INPUT X
  52. 1510 IF X<0 OR X>256 THEN PRINT BL$"[145]";:GOTO1490
  53. 1520 IF X<>INT(X) THEN PRINT BL$"[145]";:GOTO 1490
  54. 1530 IF X=256 THEN X=0:POKEL,X:L=L+1
  55. 1531 POKE L,X:L=L+1:D=D+1
  56. 1540 IF X=0 THEN D=1:N=N+1:GOTO 1340
  57. 1550 GOTO 1490
  58. 1560 REM ALL DONE, WRITE FILE TO DISK
  59. 1570 OPEN 5,8,5,N$+",S,W"
  60. 1580 FOR I=4096 TO 4096+256
  61. 1590 PRINT#5,CHR$(PEEK(I));
  62. 1600 NEXT I
  63. 1610 CLOSE 5
  64. 1620 PRINT "[147]";
  65. 1630 PRINT T$M$M$M$E$
  66. 1640 PRINT "[202][207][194][160][195][207][205][208][204][197][212][197]."
  67. 9999 END
  68.